home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE Restrictions 1.xpl < prev    next >
Text File  |  2001-04-16  |  6KB  |  120 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="Internet Options dialog restrictions"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Disable Advanced Tab Changes"
  8. "DESCRIPTION 1"="This plug-in lets you disable any of the options on Internet Explorer's Internet Options dialog. To disable any item, clear the tick beside it; to enable it again, place a tick beside it."
  9. "DESCRIPTION 2"="As a rule, 'Allow' options affect all options on a tab, 'Enable' options only affect certain options on each tab, and 'Show' options hide the tab altogether."
  10. "DESCRIPTION 3"="NOTE: Disabling all of the last six options (the 'show' options) will disable the Internet Options dialog altogether."
  11. "VERSION"="1.07"
  12. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Based on several plug-ins by Ojatex [ojatex@aol.com] and SΘbastien Maurice"
  15.  
  16. 'dwrd
  17. sP="HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\"
  18. IE="HKLM\Software\Microsoft\Internet Explorer\Version"
  19.  
  20. SUB Plugin_Initialize
  21.  Call Build_Display(1,"Advanced","Allow changes to Advanced tab")
  22.  Call Build_Display(2,"History","Enable History options [General]")
  23.  Call Build_Display(3,"Cache","Enable Temporary Internet Files Settings button [General]")
  24.  Call Build_Display(4,"Connection Settings","Allow changes to Connection tab")
  25.  Call Build_Display(5,"Certificates","Enable Certificates options [Content]") 
  26.  Call Build_Display(6,"Colors","Enable Foreground/Background Colors options [General]")
  27.  Call Build_Display(7,"Fonts","Enable Fonts options [General]")
  28.  Call Build_Display(8,"Languages","Enable Languages options [General]")
  29.  Call Build_Display(9,"Profiles","Enable Microsoft Profile Assistant button [Content]")
  30.  Call Build_Display(10,"Links","Enable Links Colors options [General]")
  31.  Call Build_Display(11,"HomePage","Enable Home page options [General]")
  32.  Call Build_Display(12,"Ratings","Enable Content Advisor options [Content]")
  33.  Call Build_Display(13,"Check_If_Default","Enable Check If Default Browser option [Programs]")
  34.  Call Build_Display(14,"Proxy","Enable Proxy Server options [Connections]")
  35.  Call Build_Display(15,"Autoconfig","Enable Automatic Connection Configuration options [Connections]") 
  36.  Call Build_Display(16,"Connection Wizard","Enable Internet Connection Wizard button [Connections]")
  37.  Call Build_Display(17,"CalendarContact","Enable Calendar and Contact List options [Programs]")
  38.  Call Build_Display(18,"Messaging","Enable E-mail, Newsgroups and Internet Call options [Programs]")
  39.  if RegReadValue(IE) < "5.5" then
  40.   Call Build_Display(19,"Wallet","Enable Microsoft Wallet button [Content]")
  41.  end if
  42.  Call Build_Display(20,"ResetWebSettings","Enable Reset Web Settings button [Programs]")
  43.  Call Build_Display(21,"AdvancedTab","Show Advanced Tab")
  44.  Call Build_Display(22,"CertifPers","Enable Personal Certificate options [Content]")
  45.  Call Build_Display(23,"CertifSite","Enable Site Certificate options [Content]")
  46.  Call Build_Display(24,"FormSuggest","Enable AutoComplete Form option [Content]")
  47.  Call Build_Display(25,"FormSuggest Passwords","Enable AutoComplete Passwords option [Content]") 
  48.  Call Build_Display(26,"GeneralTab","Show General tab")
  49.  Call Build_Display(27,"SecurityTab","Show Security tab")
  50.  Call Build_Display(28,"ContentTab","Show Content tab")
  51.  Call Build_Display(29,"ConnectionsTab","Show Connections tab")
  52.  Call Build_Display(30,"ProgramsTab","Show Programs tab")
  53.  Call Build_Display(31,"SecChangeSettings","Enable Security Level options [Security]")
  54.  Call Build_Display(32,"SecAddSites","Enable Sites button options [Security]")
  55.  Call Build_Display(33,"Connwiz Admin Lock","Enable Internet Connection Wizard [Connections]")
  56.  Call Build_Display(34,"Settings","Enable Temporary Internet Files options [General]")
  57.  Call Build_Display(35,"Accessibility","Enable Accessibility option [General]")
  58. END SUB
  59.  
  60. SUB Build_Display(NUMB,VALUE,DESC)
  61.  Call SetUIElement(NUMB,DESC)
  62.  s=RegReadValue(sP&VALUE)
  63.  If IsEmpty(s)=true OR s=0 then
  64.   Call SetUIElementEx(NUMB,true)
  65.  end if
  66. END SUB
  67.  
  68. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  69.  Call Apply_Option(1,"Advanced")
  70.  Call Apply_Option(2,"History")
  71.  Call Apply_Option(3,"Cache")
  72.  Call Apply_Option(4,"Connection Settings")
  73.  Call Apply_Option(5,"Certificates") 
  74.  Call Apply_Option(6,"Colors")
  75.  Call Apply_Option(7,"Fonts")
  76.  Call Apply_Option(8,"Languages")
  77.  Call Apply_Option(9,"Profiles")
  78.  Call Apply_Option(10,"Links")
  79.  Call Apply_Option(11,"HomePage")
  80.  Call Apply_Option(12,"Ratings")
  81.  Call Apply_Option(13,"Check_If_Default")
  82.  Call Apply_Option(14,"Proxy")
  83.  Call Apply_Option(15,"Autoconfig") 
  84.  Call Apply_Option(16,"Connection Wizard")
  85.  Call Apply_Option(17,"CalendarContact")
  86.  Call Apply_Option(18,"Messaging")
  87.  Call Apply_Option(19,"Wallet")
  88.  Call Apply_Option(20,"ResetWebSettings")
  89.  Call Apply_Option(21,"AdvancedTab")
  90.  Call Apply_Option(22,"CertifPers")
  91.  Call Apply_Option(23,"CertifSite")
  92.  Call Apply_Option(24,"FormSuggest")
  93.  Call Apply_Option(25,"FormSuggest Passwords") 
  94.  Call Apply_Option(26,"GeneralTab")
  95.  Call Apply_Option(27,"SecurityTab")
  96.  Call Apply_Option(28,"ContentTab")
  97.  Call Apply_Option(29,"ConnectionsTab")
  98.  Call Apply_Option(30,"ProgramsTab")
  99.  Call Apply_Option(31,"SecChangeSettings")
  100.  Call Apply_Option(32,"SecAddSites")
  101.  Call Apply_Option(33,"Connwiz Admin Lock")
  102.  Call Apply_Option(34,"Settings")
  103.  Call Apply_Option(35,"Accessibility")
  104. END SUB
  105.  
  106. SUB Apply_Option(NUMB,VALUE)
  107.  b=GetUIElementEx(NUMB)
  108.  if b=true then
  109.   s=RegReadValue(sP&VALUE)
  110.   if IsEmpty(s)=false then
  111.    Call RegDeleteValue(sP&VALUE)
  112.   end if
  113.  else
  114.   Call RegWriteValue(sP&VALUE,1,2)
  115.  end if
  116. END SUB
  117.  
  118. SUB Plugin_Terminate
  119. END SUB
  120.